home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / dev / GUI / Triton / Programmer / gcc / source / tr_openclose.c < prev    next >
C/C++ Source or Header  |  1994-07-14  |  2KB  |  85 lines
  1. /*
  2.  *  Triton - The object oriented GUI creation system for the Amiga
  3.  *  Written by Stefan Zeiger in 1993-1994
  4.  *
  5.  *  (c) 1993-1994 by Stefan Zeiger
  6.  *  You are hereby allowed to use this source or parts of it for
  7.  *  creating programs for AmigaOS which use the Triton GUI creation
  8.  *  system. All other rights reserved.
  9.  *
  10.  *  Triton linkable library code for GCC - (c) 1994 by Gunther Nikl
  11.  */
  12.  
  13. #include "triton.h"
  14. #include <inline/exec.h>
  15. #include <inline/triton.h>
  16.  
  17. struct Library *TritonBase;
  18. struct TR_App *__Triton_Support_App;
  19.  
  20. /****** triton.lib/TR_OpenTriton ******
  21. *
  22. *   NAME    
  23. *    TR_OpenTriton -- Opens Triton ready to use.
  24. *
  25. *   SYNOPSIS
  26. *    success = TR_OpenTriton(version, tag1,...)
  27. *    D0
  28. *
  29. *    BOOL TR_OpenTriton(ULONG, ULONG,...);
  30. *
  31. *   FUNCTION
  32. *    Opens triton.library with the specified minimum
  33. *    version and creates an application.
  34. *    The supplied tags are passed as a taglist to
  35. *    TR_CreateApp().
  36. *
  37. *   RESULT
  38. *    success - Was everything opened successful?
  39. *
  40. *   SEE ALSO
  41. *    TR_CloseTriton(), TR_CreateApp()
  42. *
  43. ******/
  44.  
  45. BOOL TR_OpenTriton(ULONG version, ULONG taglist,...)
  46. { 
  47.   if(TritonBase=OpenLibrary(TRITONNAME,version))
  48.     if(__Triton_Support_App=TR_CreateApp((struct TagItem *)&taglist))
  49.       return TRUE;
  50.   return FALSE;
  51. }
  52.  
  53. /****** triton.lib/TR_CloseTriton ******
  54. *
  55. *   NAME    
  56. *    TR_CloseTriton -- Closes Triton easily.
  57. *
  58. *   SYNOPSIS
  59. *    TR_CloseTriton()
  60. *
  61. *    VOID TR_CloseTriton(VOID);
  62. *
  63. *   FUNCTION
  64. *    Closes the application created by OpenTriton()
  65. *    and closes triton.library.
  66. *
  67. *   SEE ALSO
  68. *    TR_OpenTriton()
  69. *
  70. ******/
  71.  
  72. VOID TR_CloseTriton(VOID)
  73. {
  74.   if(__Triton_Support_App)
  75.   {
  76.     TR_DeleteApp(__Triton_Support_App);
  77.     __Triton_Support_App=NULL;
  78.   }
  79.   if(TritonBase)
  80.   {
  81.     CloseLibrary(TritonBase);
  82.     TritonBase=NULL;
  83.   }
  84. }
  85.